home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8501.d64 / autonum 64 (.txt) next >
Commodore BASIC  |  1995-03-30  |  1KB  |  50 lines
  1. 10 REM       *** AUTONUM 64 ***
  2. 11 REM
  3. 12 REM          AUTOMATISCHE
  4. 13 REM      ZEILENNUMMERNVORGABE
  5. 14 REM
  6. 15 REM
  7. 16 REM  1. ZEILENNR. LOW -BYTE IN 49294
  8. 17 REM  1. ZEILENNR. HIGH-BYTE IN 49295
  9. 18 REM  ZEILENABSTAND (1-255)  IN 49296
  10. 19 REM
  11. 20 REM
  12. 21 REM        EIN UTILITY VON:
  13. 22 REM
  14. 23 REM          TH.  SCHULZ
  15. 24 REM        POSTFACH 602542
  16. 25 REM        2000 HAMBURG 60
  17. 26 REM        TEL.040/6316055
  18. 27 REM
  19. 28 REM
  20. 29 POKE49294,0:POKE49295,0:POKE49296,10
  21. 30 POKE55,0:POKE56,195:AD=49152:Z=0
  22. 31 POKE53280,0:POKE53281,0:PRINTCHR$(30);
  23. 32 PRINTCHR$(147);
  24. 33 READX:IFX=-1THEN51
  25. 34 POKEAD,X:AD=AD+1:Z=Z+X:GOTO33
  26. 35 DATA32,115,0,201,95,240,6,32,121,0,76
  27. 36 DATA231,167,32,115,0,24,173,144,192
  28. 37 DATA109,142,192,141,142,192,144,3,238
  29. 38 DATA143,192,162,23,160,0,24,32,10,229
  30. 39 DATA173,143,192,174,142,192,32,205
  31. 40 DATA189,169,152,133,251,169,7,133,252
  32. 41 DATA169,119,133,253,169,2,133,254,160
  33. 42 DATA0,177,251,201,32,240,6,145,253
  34. 43 DATA200,76,66,192,132,198,160,0,162,23
  35. 44 DATA24,32,10,229,169,15,141,24,212
  36. 45 DATA169,207,141,7,212,169,34,141,8
  37. 46 DATA212,169,240,141,13,212,169,17,141
  38. 47 DATA11,212,162,64,160,255,136,208,253
  39. 48 DATA202,208,248,169,0,141,11,212,76
  40. 49 DATA128,164,169,0,141,8,3,169,192
  41. 50 DATA141,9,3,96,-1
  42. 51 IFZ<>18097THEN55
  43. 52 PRINTCHR$(147)CHR$(17);
  44. 53 PRINT"AUTONUM 64  ZEILENNR.VORG.:  _";
  45. 54 PRINTCHR$(18)"RETURN":SYS49283:NEW
  46. 55 PRINTCHR$(17)"FEHLER IN DATAS!
  47. 56 [153][199](17)"CHECKSUMME   "[199](18);
  48. 57 [153]" IST:"[199](146)Z[199](18);
  49. 58 [153][163]15)"SOLL:"[199](146)18097:[128]
  50.